home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / CollideDemo.AMOS / CollideDemo.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  1.0 KB  |  34 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *        Collide Demo I V1.0        *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. ' Ein kleines Demo als Beispiel f�r die  
  9. ' Kollisionserkennung per Hardwareregister 
  10. '
  11. Screen Open 0,320,200,4,0
  12. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  13. Palette 0,$444,$666,$999
  14. Colour 17,$484 : Colour 18,$6C6 : Colour 19,$9F9 : Hide 
  15. Ink 1 : Circle 7,7,7 : Ink 2 : Circle 7,7,4
  16. Paint 7,2,0 : Ink 3 : Paint 7,7,0
  17. Get Sprite 1,0,0 To 16,16
  18. Cls 
  19. For A=1 To 20
  20.   Ink 3
  21.   Draw Rnd(320),Rnd(200) To Rnd(320),Rnd(100)+100
  22. Next 
  23. X=2800 : Y=500 : SX=30 : SY=0
  24. Doke $DFF098,%1111000011000011
  25. Do 
  26.   Wait Vbl 
  27.   A=Deek($DFF00E)
  28.   If A and 2 Then Colour 19,Rnd(4096) : SY=SY-Sgn(SY) : If Abs(SY)<5 Then SY=Sgn(SY)*(Rnd(20)+10)
  29.   If X+SX<1280 Then SX=Rnd(20)+10
  30.   If X+SX>4319 Then SX=Rnd(20)-30
  31.   If Y+SY>2339 Then SY=-SY : SX=Rnd(60)-30 Else Inc SY
  32.   Sprite 0,X/10,Y/10,1
  33.   Add X,SX : Add Y,SY
  34. Loop